1 '*** GADGET *** Minianim ***
10 READ$:CLS:$=$+$:FORI=1TO64:PRINTCHR$(255);:NEXT:LOCATE0,0
20 FORI=1TOLEN($)/2STEP2:DEFCHR$(255)=MID$($,I,10):NEXT:GOTO20
1000 DATA0000000000FEFEFEFEFE